home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE1.SDA / SCREEN HAVOC! (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  1KB  |  22 lines
  1. 10 REM  SCREEN HAVOC!
  2. 20 RESTORE:FORI=830TO932:READA%:POKEI,A%:NEXT
  3. 30 GOSUB100:C$="[147][150]"+Z$+X$+W$+Y$:D$=C$:SYS830:END
  4. 100 Z$="[150]        [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]          "
  5. 110 Y$="        [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]          "
  6. 120 X$="        [194][153]   THANKS, I WAS    [150][194]          "
  7. 130 W$="        [194][153]   GETTING DIZZY!   [150][194]          "
  8. 140 RETURN
  9. 830 DATA169,0,133,198,141,32,208,141,33,208
  10. 840 DATA160,3,185,149,3,141,98,3,185,153
  11. 850 DATA3,141,103,3,185,157,3,141,106,3
  12. 860 DATA185,161,3,170,189,149,222,106,106,157
  13. 870 DATA0,7,157,0,219,141,142,2,202,208
  14. 880 DATA239,136,16,214,165,198,240,208,160,2
  15. 890 DATA177,71,153,137,3,136,208,248,162,0
  16. 900 DATA177,71,141,145,3,189,0,0,32,210
  17. 910 DATA255,232,224,132,208,245,96,222,222,222
  18. 920 DATA222,7,6,5,4,219,218,217,216,232
  19. 930 DATA0,0,0
  20. 940 REM THIS MC TAKES DATA FROM THE I/O AREA AT PAGE 222 AND PUTS IT INTO THE   SCREEN AND COLOR MEMORY AREAS. PRESS SHIFT FOR ANOTHER UNUSUAL EFFECT.
  21. 950 REM PRESS ANY OTHER KEY TO EXIT WITH MESSAGE. THE MESSAGE WILL BE THE LAST  STRING TO BE REDEFINED BY THE PROGRAM. THIS MAKES A GREAT OPENING SCREEN.
  22.